00100	LET TYPEOUT (*,X) =
00200	(TYPEOUT
00300	(REP 0 M *
00400	(ALT
00500	FILE <FILENAME>|
00600	PAGE <EXPR>|
00700	PAGES <EXPR> TO <EXPR>|
00800	FONTS <IDLIST>|
00900	UP [STRING]|
01000	DOWN [STRING]
01100	)))
01200	MEAN
01300	FOR NEW Y IN X DO
01400	BEGIN
01500	OPTIONS ← CDDR Y ; A ← OPTIONS[1] ;
01600	CASE Y[1] OF
01700	BEGIN
01800	
01900	%FILE%
02000	IFILE ← A ;
02100	
02200	%PAGE%
02300	BEGIN LOWPAGE ← A ; HIGHPAGE ← A END ;
02400	
02500	%PAGES%
02600	BEGIN LOWPAGE ← A ; HIGHPAGE ← OPTIONS[3] END ;
02700	
02800	%FONTS%
02900	FONTS ← A ;
03000	
03100	%UP%
03200	UP ← A ;
03300	
03400	%DOWN%
03500	DOWN ← A ;
03600	END ;
03700	
03800	IF NOT('STARTED.STARTED) THEN START() ;
03900	IF FILE AND FILE NEQ IFILE THEN INC(T,NIL) ALSO INC(NIL,T)
04000	   ALSO PAGE ← 100000 ;
04100	FILE ← IFILE ;